Module demo

    Sub Main()
        Dim utils As New System.UyghurCharUtils
        Dim source As String = "سالام VB.NET"

        Dim target1 As String = utils.Basic2Extend(source) '基本区 转换 扩展区
        Dim target2 As String = utils.Extend2Basic(target1) '扩展区 转换 基本区

        Dim target3 As String = utils.Basic2RExtend(source) '基本区 转换 反向扩展区
        Dim target4 As String = utils.RExtend2Basic(target3) '反向扩展区 转换 基本区
        Dim target5 As String = utils.BasicSyllable(source) '音节索引

        Console.WriteLine(target1)
        Console.WriteLine(target2)
        Console.WriteLine(target3)
        Console.WriteLine(target4)
        Console.WriteLine(target5)
    End Sub

End Module
